 
 
 
 
 
 
 
/* Engaging the Public Through Design: How Digital Platforms Nudge Public Engagement  */


/* STATA 18 */




 clear
graph drop _all
set matsize 5000
set more off








 
 
    
   /*******************************************************************************
 *******Figure 2
 ********************************************************************************/
 
  

  use "maindata.dta",clear
 
 
 

 reg choose i.score i.visualcity i.award ib(1).infor ib(1).parti ib(1).enter,r cluster(newid)


coefplot  , drop(_cons) xline(0) omitted baselevels    graphregion(color(white))  xlabel(-.2(0.1)0.3)   msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
xtitle ("Effects of Attributes on Platform Profile being Selected",height(5) size(vsmall)) headings(0.score="{bf:Points for Low-Carbon Behaviors}"  0.visualcity="{bf:Virtual City}"  0.award="{bf:Electronic Certificate}"  1.infor="{bf:Frequency of Information Disclosure}" 1.parti="{bf:Proportion of Public Participation}" 1.enter="{bf:Entry Method}" ) ///
coeflabels ( 0.score="No" 1.score="Yes"  ///
		   0.visualcity="No" 1.visualcity="Yes"  ///
		   0.award="No"   1.award="Yes"   ///
		  1.infor="None"  2.infor="Once a Year" 3.infor="Every Six Months" 4.infor="Once a Month" ///
		  1.parti="5%" 2.parti="10%"  3.parti="20%"  4.parti="30%"  /// 
		  1.enter="Download App"   2.enter="WeChat Mini Program"   3.enter="QR code" , labsize(vsmall)) ///
		   title("Panel A: Preference of Digital Platform",size(small) color(black))
		   
graph save f1.gph,replace 
 
 

 reg part_willing i.score i.visualcity i.award ib(1).infor ib(1).parti ib(1).enter,r cluster(newid)


coefplot  , drop(_cons) xline(0) omitted baselevels    graphregion(color(white))  xlabel(-.2(0.1)0.5)   msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
xtitle ("Effects of Attributes on Willingness to Engage",height(5) size(vsmall)) headings(0.score="{bf:Points for Low-Carbon Behaviors}"  0.visualcity="{bf:Virtual City}"  0.award="{bf:Electronic Certificate}"  1.infor="{bf:Frequency of Information Disclosure}" 1.parti="{bf:Proportion of Public Participation}" 1.enter="{bf:Entry Method}" ) ///
coeflabels ( 0.score="No" 1.score="Yes"  ///
		   0.visualcity="No" 1.visualcity="Yes"  ///
		   0.award="No"   1.award="Yes"   ///
		  1.infor="None"  2.infor="Once a Year" 3.infor="Every Six Months" 4.infor="Once a Month" ///
		  1.parti="5%" 2.parti="10%"  3.parti="20%"  4.parti="30%"  /// 
		  1.enter="Download App"   2.enter="WeChat Mini Program"   3.enter="QR code" , labsize(vsmall)) ///
		   title("Pabel B: Willingness to Engage in Low-carbon Behavior",size(small) color(black))
		   
 graph save f2.gph,replace 
 
 
 graph combine f1.gph f2.gph,altshrink scheme(s1mono)	row(1)   
 graph export "fig_2.png", as(png) replace
 
 
 erase f1.gph
 erase f2.gph
   
   
   
   

 /*******************************************************************************
 *******Figure 3
 ********************************************************************************/	

 use "maindata.dta",clear
 

  reg choose score visualcity award infor parti ib(1).enter  award_score award_visualcity award_infor award_parti award_enter_wechat award_enter_QR,r cluster(newid)




coefplot  , keep(award_score award_visualcity award_infor award_parti award_enter_wechat award_enter_QR) ///
          xline(0) omitted baselevels    graphregion(color(white))    xlabel(-0.2(0.1)0.2)  msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
    xtitle ("Effects of Attributes on Platform being Selected",height(5) size(small)) headings(award_score="{bf:Points for Low-Carbon Behaviors}"  award_visualcity="{bf:Virtual City}"  award_infor="{bf:Frequency of Information Disclosure}" award_parti="{bf:Proportion of Public Participation}" award_enter_wechat="{bf:Entry Method}" ) ///
        coeflabels (award_score="Electronic Certificate × Points for Low-Carbon Behaviors"  ///
         award_visualcity="Electronic Certificate × Virtual City"   ///
		award_infor="Electronic Certificate × Frequency of Information Disclosure"  ///
		award_parti="Electronic Certificate × Proportion of Public Participation"  ///
		award_enter_wechat="Electronic Certificate × WeChat Mini Program "  ///
		 award_enter_QR="Electronic Certificate × QR code" , labsize(vsmall))

		   
		   
 graph export "fig_3.png", as(png) replace   
		   
   
   /*******************************************************************************
 *******Figure 4
 ********************************************************************************/
 
 use "maindata.dta",clear
 
 
 
 

 reg Conve_score i.score i.visualcity i.award ib(1).infor ib(1).parti ib(1).enter,r cluster(newid)


coefplot  , drop(_cons) xline(0) omitted baselevels    graphregion(color(white))  xlabel(-.2(0.1)0.5)   msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
xtitle ("Effects of Attributes on Percieved Ease of use",height(5) size(vsmall)) headings(0.score="{bf:Points for Low-Carbon Behaviors}"  0.visualcity="{bf:Virtual City}"  0.award="{bf:Electronic Certificate}"  1.infor="{bf:Frequency of Information Disclosure}" 1.parti="{bf:Proportion of Public Participation}" 1.enter="{bf:Entry Method}" ) ///
coeflabels ( 0.score="No" 1.score="Yes"  ///
		   0.visualcity="No" 1.visualcity="Yes"  ///
		   0.award="No"   1.award="Yes"   ///
		  1.infor="None"  2.infor="Once a Year" 3.infor="Every Six Months" 4.infor="Once a Month" ///
		  1.parti="5%" 2.parti="10%"  3.parti="20%"  4.parti="30%"  /// 
		  1.enter="Download App"   2.enter="WeChat Mini Program"   3.enter="QR code" , labsize(vsmall)) ///
		   title("Panel A: Ease of use",size(small) color(black))
		   
graph save "f1", replace	

 reg achieve_score i.score i.visualcity i.award ib(1).infor ib(1).parti ib(1).enter,r cluster(newid)


coefplot  , drop(_cons) xline(0) omitted baselevels    graphregion(color(white))  xlabel(-.2(0.1)0.5)   msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
xtitle ("Effects of Attributes on Percieved Possibility of Achieving Goals",height(5) size(vsmall)) headings(0.score="{bf:Points for Low-Carbon Behaviors}"  0.visualcity="{bf:Virtual City}"  0.award="{bf:Electronic Certificate}"  1.infor="{bf:Frequency of Information Disclosure}" 1.parti="{bf:Proportion of Public Participation}" 1.enter="{bf:Entry Method}" ) ///
coeflabels ( 0.score="No" 1.score="Yes"  ///
		   0.visualcity="No" 1.visualcity="Yes"  ///
		   0.award="No"   1.award="Yes"   ///
		  1.infor="None"  2.infor="Once a Year" 3.infor="Every Six Months" 4.infor="Once a Month" ///
		  1.parti="5%" 2.parti="10%"  3.parti="20%"  4.parti="30%"  /// 
		  1.enter="Download App"   2.enter="WeChat Mini Program"   3.enter="QR code" , labsize(vsmall)) ///
		   title("Panel B: Possibility of Achieving Low-Carbon Goals",size(small) color(black))
		   
graph save "f2", replace	


graph combine f1.gph f2.gph , altshrink scheme(s1mono)	row(1) ycommon xcommon	
 graph export "fig_4.png", as(png) replace
 erase f1.gph
 erase f2.gph
   



   
   
 
     /*******************************************************************************
 *******Figure 5
 ********************************************************************************/
  use "maindata.dta",clear
 
 
 
   reg choose score visualcity award infor parti ib(1).enter knowledge  know_score know_visualcity know_award know_infor know_parti know_enter_wechat know_enter_QR ,r cluster(newid)

   
coefplot  , keep(know_score know_visualcity know_award know_infor know_parti know_enter_wechat know_enter_QR) ///
          xline(0) omitted baselevels    graphregion(color(white))    xlabel(-0.05(0.05)0.05)  msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
    xtitle ("Effects of Attributes on Platform being Selected",height(5) size(vsmall)) headings(know_score="{bf:Points for Low-Carbon Behaviors}"   know_visualcity="{bf:Virtual City}"   know_award="{bf:Electronic Certificate}"   know_infor="{bf:Frequency of Information Disclosure}" know_parti="{bf:Proportion of Public Participation}" know_enter_wechat="{bf:Entry Method}" ) ///
        coeflabels (know_score="Carbon Knowledge × Points for Low-Carbon Behaviors"  ///
         know_visualcity="Carbon Knowledge × Virtual City"   ///
		 know_award="Carbon Knowledge × Electronic Certificate"   ///
		know_infor="Carbon Knowledge × Frequency of Information Disclosure"  ///
		know_parti="Carbon Knowledge × Proportion of Public Participation"  ///
		know_enter_wechat="Carbon Knowledge × WeChat Mini Program "  ///
		 know_enter_QR="Carbon Knowledge × QR code" , labsize(vsmall)) title("Panel A: Carbon Knowledge", size(small))

		   
graph save "f1",replace

	 

 reg choose score visualcity award infor parti ib(1).enter college_edu edu_score edu_visualcity edu_award edu_infor edu_parti edu_enter_wechat edu_enter_QR,r cluster(newid)

  
coefplot  , keep(edu_score edu_visualcity edu_award edu_infor edu_parti edu_enter_wechat edu_enter_QR) ///
          xline(0) omitted baselevels    graphregion(color(white))    xlabel(-0.1(0.1)0.2)  msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
    xtitle ("Effects of Attributes on Platform being Selected",height(5) size(vsmall)) headings( edu_score="{bf:Points for Low-Carbon Behaviors}"    edu_visualcity="{bf:Virtual City}"    edu_award="{bf:Electronic Certificate}"    edu_infor="{bf:Frequency of Information Disclosure}"  edu_parti="{bf:Proportion of Public Participation}"  edu_enter_wechat="{bf:Entry Method}" ) ///
        coeflabels (edu_score="College Education × Points for Low-Carbon Behaviors"  ///
         edu_visualcity="College Education × Virtual City"   ///
		  edu_award="College Education × Electronic Certificate"   ///
		 edu_infor="College Education × Frequency of Information Disclosure"  ///
		 edu_parti="College Education × Proportion of Public Participation"  ///
		 edu_enter_wechat="College Education × WeChat Mini Program "  ///
		 edu_enter_QR="College Education × QR code" , labsize(vsmall))  title("Panel B: College Education",size(small))

 graph save "f2",replace
 
 graph combine f1.gph f2.gph, row(1)

 graph export "fig_5.png", as(png) replace	



 erase f1.gph
 erase f2.gph
 
 
 
 
 
 ******************************************************************************
 *******Figure 6
 ********************************************************************************/
  
	  use "maindata.dta",clear
 
 reg choose score visualcity award infor parti ib(1).enter parti_ant ant_score ant_visualcity ant_award ant_infor ant_parti ant_enter_wechat ant_enter_QR,r cluster(newid)

  
coefplot  , keep(ant_score ant_visualcity ant_award ant_infor ant_parti ant_enter_wechat ant_enter_QR) ///
          xline(0) omitted baselevels    graphregion(color(white))    xlabel(-0.2(0.1)0.2)  msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
    xtitle ("Effects of Attributes on Platform being Selected",height(5) size(small)) headings( ant_score="{bf:Points for Low-Carbon Behaviors}"    ant_visualcity="{bf:Virtual City}"  ant_award="{bf:Electronic Certificate}"  ant_infor="{bf:Frequency of Information Disclosure}"  ant_parti="{bf:Proportion of Public Participation}"  ant_enter_wechat="{bf:Entry Method}" ) ///
        coeflabels (ant_score="Engagement Experience × Points for Low-Carbon Behaviors"  ///
         ant_visualcity="Engagement Experience × Virtual City"   ///
		  ant_award="Engagement Experience × Electronic Certificate"   ///
		 ant_infor="Engagement Experience × Frequency of Information Disclosure"  ///
		 ant_parti="Engagement Experience × Proportion of Public Participation"  ///
		 ant_enter_wechat="Engagement Experience × WeChat Mini Program "  ///
		 ant_enter_QR="Engagement Experience × QR code" , labsize(vsmall))

 graph export "fig_6.png", as(png) replace
 
 
 
  /*******************************************************************************
 *******Figure 7
 ********************************************************************************/
  
  	  use "maindata.dta",clear

 reg choose score visualcity award infor parti ib(1).enter ideo ideo_score ideo_visualcity ideo_award ideo_infor ideo_parti ideo_enter_wechat ideo_enter_QR,r cluster(newid)

  
coefplot  , keep(ideo_score ideo_visualcity ideo_award ideo_infor ideo_parti ideo_enter_wechat ideo_enter_QR) ///
          xline(0) omitted baselevels    graphregion(color(white))    xlabel(-0.1(0.1)0.1)  msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
    xtitle ("Effects of Attributes on Platform being Selected",height(5) size(small)) headings(ideo_score="{bf:Points for Low-Carbon Behaviors}"    ideo_visualcity="{bf:Virtual City}"   ideo_award="{bf:Electronic Certificate}"   ideo_infor="{bf:Frequency of Information Disclosure}"  ideo_parti="{bf:Proportion of Public Participation}"  ideo_enter_wechat="{bf:Entry Method}" ) ///
        coeflabels (ideo_score="State Intervention × Points for Low-Carbon Behaviors"  ///
         ideo_visualcity="State Intervention × Virtual City"   ///
		  ideo_award="State Intervention × Electronic Certificate"   ///
		 ideo_infor="State Intervention × Frequency of Information Disclosure"  ///
		 ideo_parti="State Intervention × Proportion of Public Participation"  ///
		 ideo_enter_wechat="State Intervention × WeChat Mini Program "  ///
		 ideo_enter_QR="State Intervention × QR code" , labsize(vsmall))

		 
		 
 graph export "fig_7.png", as(png) replace		 
		 
 
 /*******************************************************************************
 *******Figure 8 
 ********************************************************************************/
    
	
		  use "maindata.dta",clear
		  
 reg choose score visualcity award infor parti ib(1).enter support_doublecanbon support_score support_visualcity support_award support_infor support_parti support_enter_wechat support_enter_QR,r cluster(newid)

  
coefplot  , keep(support_score support_visualcity support_award support_infor support_parti support_enter_wechat support_enter_QR) ///
          xline(0) omitted baselevels    graphregion(color(white))    xlabel(-0.05(0.05)0.05)  msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
    xtitle ("Effects of Attributes on Platform being Selected",height(5) size(small)) headings(support_score="{bf:Points for Low-Carbon Behaviors}"    support_visualcity="{bf:Virtual City}"   support_award="{bf:Electronic Certificate}"  support_infor="{bf:Frequency of Information Disclosure}"  support_parti="{bf:Proportion of Public Participation}"  support_enter_wechat="{bf:Entry Method}" ) ///
        coeflabels (support_score="State Intervention × Points for Low-Carbon Behaviors"  ///
         support_visualcity="Policy Support × Virtual City"   ///
		  support_award="Policy Support × Electronic Certificate"   ///
		 support_infor="Policy Support × Frequency of Information Disclosure"  ///
		 support_parti="Policy Support × Proportion of Public Participation"  ///
		 support_enter_wechat="Policy Support × WeChat Mini Program "  ///
		 support_enter_QR="Policy Support × QR code" , labsize(vsmall))
		
		
 graph export "fig_8.png", as(png) replace
 		
		
		
	
 
 /*******************************************************************************
 ******Figure 9 
 ********************************************************************************/

 
	  use "maindata.dta",clear
 reg choose score visualcity award infor parti ib(1).enter industry_affect indus_score indus_visualcity indus_award indus_infor indus_parti indus_enter_wechat indus_enter_QR,r cluster(newid)

  
coefplot  , keep(indus_score indus_visualcity indus_award indus_infor indus_parti indus_enter_wechat indus_enter_QR) ///
          xline(0) omitted baselevels    graphregion(color(white))    xlabel(-0.2(0.1)0.1)  msize(small)  msymbol(O)  lpatt(solid)  lwidth(vvthin) ciopts(lpatt(solid))   ///
    xtitle ("Effects of Attributes on Platform being Selected",height(5) size(small)) headings(indus_score="{bf:Points for Low-Carbon Behaviors}"    indus_visualcity="{bf:Virtual City}"  indus_award="{bf:Electronic Certificate}"  indus_infor="{bf:Frequency of Information Disclosure}" indus_parti="{bf:Proportion of Public Participation}"  indus_enter_wechat="{bf:Entry Method}" ) ///
        coeflabels (indus_score="Job Sector Negatively Affected × Points for Low-Carbon Behaviors"  ///
        indus_visualcity="Job Sector Negatively Affected × Virtual City"   ///
		  indus_award="Job Sector Negatively Affected × Electronic Certificate"   ///
		 indus_infor="Job Sector Negatively Affected × Frequency of Information Disclosure"  ///
		 indus_parti="Job Sector Negatively Affected × Proportion of Public Participation"  ///
		 indus_enter_wechat="Job Sector Negatively Affected × WeChat Mini Program "  ///
		 indus_enter_QR="Job Sector Negatively Affected × QR code" , labsize(vsmall))
		
 graph export "fig_9.png", as(png) replace
 		
	
 
 
 









	   
   /*******************************************************************************
 *******Figure A6
 ********************************************************************************/	   

 use "mean",clear
 
 
 

graph bar knowledge, over(group,relabel (1 "0"  2 "1" 3 "2" 4 "3" 5 "4" 6 "5" 7 "6") )   ///
      ytitle("Percentage %")   ylab(,nogrid)    bar(1, color(midgreen) lcolor(white))  ///
	     blabel(bar, size(vsmall) format(%4.2f) )  
	 

 graph export "fig_a6.png", as(png) replace 
	 
   
   
   
		   
		   
		   
		   
		   
		   
		   
		   
		   
		   
		   
		   
		   
   








	   
		   
		   
		   